home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / bgft302.zip / BGFT300B.EXE / BGFTDXTL.SLT < prev    next >
Text File  |  1993-03-03  |  2KB  |  39 lines

  1. // Version 3.02 BackGround File Transfer
  2. // BGFTDXTL.SLT: Telix script for BGFT Xmodem-CRC or 1K download.
  3. // Copyright (c) 1990-1993 Dirac Systems
  4. // Telix is a trademark of Exis Inc.
  5.  
  6. str command[80];                // Command string for BGFTOPT.
  7. str temp[80];                   // Temporary concatenation string.
  8. int downdirlen;                 // Telix download drive:directory str length.
  9. int extfilelen;                 // Telix external file maximum str length.
  10.  
  11. main()
  12. {
  13. command = "/q";                         // Start command line.
  14. strcat(command," /a");                  // Acknowledge any error.
  15. strcat(command," /r");
  16. itos(get_port(),temp);                  // Find out where we are connected.
  17. strcat(command,temp);                   // Reconnect existing comm port.
  18. strcat(command," /b");
  19. itos(get_baud(),temp);                  // Find out what is the baud rate.
  20. strcat(command,temp);                   // Set baud rate for resident.
  21. //
  22. //      BGFT requires a filename from Telix.
  23. //
  24. strcat(command," /d");                  // Set up download.
  25. downdirlen = strlen(_down_dir);         // Get unwanted Telix dnld directory.
  26. extfilelen = strmaxlen(_ext_filespec);  // Get maximum length of Telix file.
  27. substr(_ext_filespec,downdirlen,extfilelen,temp);    // Shave off dnld dir.
  28. strcat(command,temp);                   // Put BGFT filename in '/e' command.
  29. //
  30. //      Xmodem-CRC or Xmodem-1K Download
  31. //
  32. strcat(command," /~1");                 // This protocol is Xmodem-CRC.
  33. //                                      // Good for Xmodem-1K too.
  34. strcat(command," /s");                  // Start to send file.
  35. prints(command);                        // Tell user the command string.
  36. run("bgftopt.exe",command,2);
  37. exittelix(0,0);                         // Leave Telix; don't hangup line.
  38. }                                       // Now enjoy background Xmodem dnld.
  39.